home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / main.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  3.0 KB  |  93 lines
  1. on placedownmenubutton buttonname, h, v, popnum, offset
  2.   global popposition, buttondata
  3.   set buttondata to buttonname & "," & h & "," & v & "," & popnum & "," & offset
  4.   puppetSprite(21, 1)
  5.   set the type of sprite 21 to 1
  6.   set the ink of sprite 21 to 0
  7.   set the foreColor of sprite 21 to 255
  8.   set the backColor of sprite 21 to 0
  9.   set castname to buttonname & ",down"
  10.   set the castNum of sprite 21 to the number of member castname
  11.   set the locH of sprite 21 to h + offset
  12.   set the locV of sprite 21 to v
  13.   updateStage()
  14.   showpopmenu(buttonname, h, v, offset)
  15.   set popposition to getpopposition(buttonname)
  16. end
  17.  
  18. on showpopmenu buttonname, h, v, offset
  19.   global popposition, poponoff
  20.   set poponoff to 1
  21.   puppetSprite(22, 1)
  22.   set the type of sprite 22 to 1
  23.   set the ink of sprite 22 to 0
  24.   set the foreColor of sprite 22 to 255
  25.   set the backColor of sprite 22 to 0
  26.   set castname to buttonname & ",pop"
  27.   set the castNum of sprite 22 to the number of member castname
  28.   set the locH of sprite 22 to h + offset
  29.   set the locV of sprite 22 to v + 22
  30.   updateStage()
  31. end
  32.  
  33. on checkpopmenu
  34.   global popposition, buttondata, poponoff
  35.   if buttondata = 0 then
  36.     exit
  37.   end if
  38.   set buttonname to item 1 of buttondata
  39.   set h to value(item 2 of buttondata)
  40.   set v to value(item 3 of buttondata)
  41.   set offset to value(item 5 of buttondata)
  42.   set mh to mouseH() - offset
  43.   set mv to mouseV()
  44.   if (mv >= value(word 1 of item 1 of popposition)) and (mv <= word 2 of item 1 of popposition) then
  45.     set n to 1
  46.     set voffset to value(word 1 of item 1 of popposition) - 1
  47.   else
  48.     if (mv >= value(word 1 of item 2 of popposition)) and (mv <= word 2 of item 2 of popposition) then
  49.       set n to 2
  50.       set voffset to value(word 1 of item 2 of popposition) - 1
  51.     else
  52.       if (mv >= value(word 1 of item 3 of popposition)) and (mv <= word 2 of item 3 of popposition) then
  53.         set n to 3
  54.         set voffset to value(word 1 of item 3 of popposition) - 1
  55.       else
  56.         if (mv >= value(word 1 of item 4 of popposition)) and (mv <= word 2 of item 4 of popposition) then
  57.           set n to 4
  58.           set voffset to value(word 1 of item 4 of popposition) - 1
  59.         else
  60.           if (mv >= value(word 1 of item 5 of popposition)) and (mv <= word 2 of item 5 of popposition) then
  61.             set n to 5
  62.             set voffset to value(word 1 of item 5 of popposition) - 1
  63.           else
  64.             puppetSprite(23, 0)
  65.             updateStage()
  66.             exit
  67.           end if
  68.         end if
  69.       end if
  70.     end if
  71.   end if
  72.   puppetSprite(23, 1)
  73.   set the type of sprite 23 to 1
  74.   set the ink of sprite 23 to 0
  75.   set the foreColor of sprite 23 to 255
  76.   set the backColor of sprite 23 to 0
  77.   set castname to buttonname & ",pop,down," & n
  78.   set the castNum of sprite 23 to the number of member castname
  79.   set the locH of sprite 23 to h + offset
  80.   set the locV of sprite 23 to v + voffset
  81.   updateStage()
  82. end
  83.  
  84. on eracemenudownbutton
  85.   global poponoff
  86.   set poponoff to 0
  87.   puppetSprite(21, 0)
  88.   puppetSprite(22, 0)
  89.   puppetSprite(23, 0)
  90.   puppetSprite(24, 0)
  91.   updateStage()
  92. end
  93.